home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 March - Disc 1 / Macworld (1999-03) (Disk 1).dmg / Shareware World / Utilities / Text Processing / Alpha / Tcl / Packages / smarterSource.tcl < prev    next >
Encoding:
Text File  |  1998-08-06  |  4.4 KB  |  110 lines  |  [TEXT/ALFA]
  1. ## -*-Tcl-*- (install)
  2.  # ###################################################################
  3.  #  Vince's Additions - an extension package for Alpha
  4.  # 
  5.  #  FILE: "smarterSource.tcl"
  6.  #                                    created: 18/10/95 {6:00:07 pm} 
  7.  #                                last update: 6/8/98 {7:24:56 pm} 
  8.  #  
  9.  #  WARNING:  This file was recently fixed to implement the proper
  10.  #  behaviour of the 'source' command -- to source into the current
  11.  #  scope.  Previously this procedure would always source into the
  12.  #  global scope.  Scripts which relied on the old behaviour must be
  13.  #  fixed...  
  14.  #  
  15.  #  Files in PREFS are passed through unchanged.  Simplified proc.
  16.  #  Interacts ok with package rebuilding.
  17.  # ##################################################################
  18.  ##
  19.  
  20. ## 
  21.  # VMD May'95-Oct'97: <darley@fas.harvard.edu>
  22.  # 
  23.  # Changed default directory to    the    the    alpha preferences directory.
  24.  # Changed extension to    '+'    rather than    'bullet' (option-8)    because
  25.  # of ascii    transmission problems -    lots of    people have    a non-working
  26.  # version of this file.
  27.  # 
  28.  # Passes through 'tclIndex(x)' and 'prefs.tcl' unchanged.
  29.  # 
  30.  # Renamed this    file to    'smarterSource.tcl', originally    just to    differentiate
  31.  # it from the old crippled    versions.
  32.  # 
  33.  # IMPORTANT: Fixed    the    script so that it works    with path names    containing
  34.  # spaces.  Changed all 'uplevel #0' to 'uplevel 1'.  
  35.  # 
  36.  ##
  37.  
  38. #############################################################################
  39. # BASED UPON 'smartSource.tcl':
  40. #
  41. # Copyright 1994, Robert Browning (osiris@cs.utexas.edu): This code is made 
  42. # freely available to anyone who can find a use for it. Consider it part of my
  43. # thanks to all those who have contributed to the freeware and shareware base.
  44. # (Especially Pete Keheler, without which this code would be pretty useless).
  45. # 
  46. # === Modifications by Vince, May 1995 ===
  47. # 
  48. #############################################################################
  49.  
  50. alpha::extension smarterSource 0.1.2 {
  51. if {![string length [info commands __ssource]]} {
  52. # location in which smarterSource looks for extension files
  53. newPref folder tclExtensionsFolder "$PREFS"
  54.  
  55.     rename source __ssource
  56. }
  57. ;proc source {filename} {
  58.     global tclExtensionsFolder PREFS
  59.     set justName [file tail "$filename"]
  60.     # we don't want to over-ride these files
  61.     if { [lsearch -exact {tclIndex tclIndexx prefs.tcl} $justName] != -1 \
  62.       || [string match [file join ${PREFS} *${justName}] $filename] } {
  63.         return [uplevel 1 [list __ssource $filename]] 
  64.     }
  65.     
  66.     set overrideFile [file join ${tclExtensionsFolder} ${justName}]
  67.     if {[file exists $overrideFile]} {
  68.         set returnVal [uplevel 1 [list __ssource $overrideFile]]
  69.     } else {
  70.         set returnVal [uplevel 1 [list __ssource $filename]]
  71.     }
  72.         
  73.     set extensionFiles [glob -nocomplain \
  74.       "[file root $overrideFile]+*[file extension ${justName}]"]
  75.     
  76.     foreach extensionFile $extensionFiles {
  77.         set returnVal [uplevel 1 [list __ssource $extensionFile]]
  78.     }
  79.     return "$returnVal" 
  80. }
  81. # end package block
  82. } help {
  83.     This package implements a replacement source command. It is intended to help
  84.     make the process of augmenting Alpha's code base with your own changes less
  85.     awkward, especially in the face of program updates. It also makes it so
  86.     that you no longer have to source files containing procedures that you want
  87.     to override in your UserStartup file.
  88.     
  89.     Basically, you designate a directory to contain your files. Then
  90.     any time Alpha is instructed to source a file named filename.tcl, it will
  91.     first look in the directory you have designated, and if there is a file of
  92.     the identical name there (i.e. filename.extension) it will source that file
  93.     instead of the original one specified. If there are any files named
  94.     filename+*.extension it will source those in the order returned by glob after
  95.     either the original filename.extension or the replacement has been sourced.
  96.     
  97.     For example, if your TclExtensions directory contains files named
  98.     latex+1.tcl and latex+2.tcl, then whenever you try to open a latex file
  99.     Alpha will first source the standard latex.tcl file, then latex+1.tcl, then
  100.     latex+2.tcl. If there was also a file named latex.tcl in the TclExtensions
  101.     directory then that file would be sourced in place of the standard
  102.     latex.tcl, then latex+1.tcl, then latex+2.tcl.
  103.     
  104.     You may just want to use filename+.extension for a single extension file.
  105.     
  106.     Note that latex+10.tcl would be sourced _before_ latex+9.tcl, so you
  107.     may wish to use latex+01.tcl ... latex+99.tcl to make things clearer.
  108. }
  109.  
  110.